home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1007_EditNum < prev    next >
Encoding:
Text File  |  1990-03-23  |  866 b   |  40 lines
  1. %case window field%
  2.     %HandleName%:%    %TEHandle;
  3. %case create%
  4.     SetRect (bounds, %top%, %left%, %bottom%, %right%);
  5.     %HandleName% := TENew (bounds, bounds);
  6.     TEAutoView (true, %HandleName%);
  7. %case dispose%
  8. %case mousein%
  9.     if PtInRect (where, %HandleName%^^.viewRect) then begin
  10.         if text <> nil then begin
  11.             TEDeactivate (text);
  12.         end;
  13.         text := %HandleName%;
  14.         TEActivate (text);
  15.         TEClick (where, false, text);
  16.     end;
  17. %case update%
  18.     TEUpdate (thePort^.portRect, %HandleName%);
  19. %case activate%
  20. %case track%
  21. %case itemNr%
  22.     %DefineItem%
  23. %case dialog field%
  24.     %fieldname%:%    %longint;
  25. %case init field%
  26.     %fieldname% := 0;
  27. %case auxiliary%
  28. %case filter%
  29. %case set%
  30.     SetDNum (%Itemname%, %Fieldname%);
  31. %case hit%
  32.     %if not disabled%
  33.         %itemname%: begin
  34.                 GetDNum (itemNr, %fieldname%);
  35.             end;
  36.     %endif%
  37. %case finish%
  38.     %if disabled%
  39.         GetDNum (itemNr, %fieldname%);
  40.     %endif%